home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / baku64.bas < prev    next >
BASIC Source File  |  1999-06-15  |  834b  |  43 lines
  1. int i,j,pl,anm,px,py,n
  2. dim char dat(255)
  3. dim int pat0(15)={&HD00,&HD04,&HD08,&HD0C,&HD40,&HD44,&HD48,&HD4C,
  4.           &HD80,&HD84,&HD88,&HD8C,&HDC0,&HDC4,&HDC8,&HDCC}
  5. dim char x(15),y(15),an(15)
  6.  
  7. screen 0,3,1,1
  8. window(0,0,511,511)
  9. vpage(&B0001) : apage(0)
  10. sp_init() : sp_disp(1)
  11. spfile_def("baku64.sp",0)
  12. palfile_def("baku.pal",1)
  13. /*fill(0,0,255,255,rgb(10,20,30))
  14.  
  15. for i=0 to 7
  16.     x(i)=(rand() and 127)+48
  17.     y(i)=(rand() and 127)+48
  18. /*    an(i)=rand() and 15
  19.     an(i)=i*2
  20. next
  21.  
  22. while inkey$(0)<>chr$(&H1B)
  23.     for i=0 to 7
  24.         an(i)=an(i)+1 and 15
  25.         if an(i) = 0 then {
  26.             x(i)=(rand() and 127)+48
  27.             y(i)=(rand() and 127)+48
  28.         }
  29.     next
  30.  
  31. /*    v_disp()
  32.     for n=0 to 7
  33.         px=x(n)
  34.         py=y(n)
  35.         pl=pat0(an(n))
  36.         for i=0 to 3
  37.         for j=0 to 3
  38.             sp_set(n*16+i*4+j,px+j*16,py+i*16,pl+i*16+j,3)
  39.         next
  40.         next
  41.     next
  42. endwhile
  43.